
 Class model
 	Public r
 	Private mArea
	Private Sub Class_Initialize
		' Called automatically when class is created
	End Sub

	Private Sub Class_Terminate
		' Called automatically when all references to class instance are removed
	End Sub
	Public Sub Init(a)
		r=a
	End Sub
	Public Function Area()
	    Area=10
	End  Function
End Class

Set x=New model   '创建一个TestClass实例
x.Init 2
Msgbox x.Area()

Set x=Nothing   '删除实例